home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 1998 November / IRIX 6.5.2 Base Documentation November 1998.img / usr / share / catman / p_man / cat3 / f90 / adjustr.z / adjustr
Text File  |  1998-10-30  |  2KB  |  61 lines
  1. ADJUSTR(3I)                                            Last changed: 2-5-98
  2.  
  3.  
  4. NNAAMMEE
  5.      AADDJJUUSSTTRR - Adjusts a character string to the right
  6.  
  7. SSYYNNOOPPSSIISS
  8.      AADDJJUUSSTTRR (([SSTTRRIINNGG==]_s_t_r_i_n_g))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS, UNICOS/mk, and IRIX systems
  12.  
  13. SSTTAANNDDAARRDDSS
  14.      Fortran 90
  15.  
  16. DDEESSCCRRIIPPTTIIOONN
  17.      The AADDJJUUSSTTRR intrinsic function adjusts a character string to the
  18.      right, removes trailing blanks, and inserts leading blanks.  It
  19.      accepts the following argument:
  20.  
  21.      _s_t_r_i_n_g    Must be of type character
  22.  
  23.      AADDJJUUSSTTRR is an elemental function.  The name of this intrinsic cannot
  24.      be passed as an argument.
  25.  
  26. RREETTUURRNN VVAALLUUEESS
  27.      The result is type character with the same length as _s_t_r_i_n_g.
  28.  
  29.      The value of the result is the same as _s_t_r_i_n_g except that any trailing
  30.      blanks have been deleted and the same number of leading blanks have
  31.      been inserted.
  32.  
  33. EEXXAAMMPPLLEESS
  34.      In the following examples, a carat (^^) indicates a blank.
  35.  
  36.      Example 1:
  37.  
  38.           VAR = ADJUSTR( 'WORD^^' )
  39.           PRINT *,"VAR='", VAR,"'"
  40.      This code segment returns the following output:
  41.  
  42.           VAR='^^WORD'
  43.  
  44.      Example 2:
  45.  
  46.                 CHARACTER*29 STRING
  47.                 STRING = '^^^TEST STRING FOR ADJUSTR^^^'
  48.                 WRITE(6,1) '>', STRING,'<'
  49.                 WRITE(6,1) '>', ADJUSTR(STRING), '<'
  50.           1     FORMAT(3A)
  51.                 END
  52.  
  53.      This code returns the following output:
  54.  
  55.           >^^^TEST STRING FOR ADJUSTR^^^<
  56.           >^^^^^^TEST STRING FOR ADJUSTR<
  57.  
  58. SSEEEE AALLSSOO
  59.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-2138, for the
  60.      printed version of this man page.
  61.